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Часть I. Введение. Технология взлома 

Если Вы хотите научиться плавать, - плавайте, если вы хотите научиться 
говорить по-английски, - разговаривайте. Народная мудрость. Я захотел 
научиться писать компьютерные игрушки коммерческого качества. И мне 
ничего другого не оставалось, как сделать это. 

Конечно, фирмы-изготовители игрушек не очень-то рекламируют свои 
исходные тексты. Ну что же, для такого случая и существует Зоигзег. 
Безусловно, комментарий, который выдает этот дизассемблер, можно 
считать комментарием лишь с большой натяжкой. Ну что ж, для настоящего 
программиста ассемблерный код - самоочевиден. 

Наверное самым сложным из всего, что случилось за те несколько недель, в 
которые проходила работа, было выбрать саму игрушку. С одной стороны, не 
хотелось огорчать фирму, секреты которой я невольно приоткрою. С другой: 
уж если ломать, то такое, чтобы самому было и приятно и полезно. 

Выбор пал на "Капитана Комика" американца Майкла Денио ( Саріаіп Сотіс 
Ьу МісІіаеІ Оепіо ). 

По многим причинам. Это одна из самых симпатичных мне аркадных игрушек 
( агсасіе дате ). У нее классические характеристики: 

- экран 32Ѳ х 2ѲѲ, 16 цветов; 

- сюжетное построение; 

- стандартный набор музыкальных возможностей: фоновое 
сопровождение, спец, эффекты, 

и, что немаловажно, хорошо развиты графические возможности ( спрайтовая 
графика, мультипликаты ). 

Что окончательно склонило выбор в пользу данного представителя 
капиталистического рынка программного обеспечения: у нее, что редко 
встречается движущееся панорамирование игрового пространства 
(согласитесь, мало того, что этот эффект просто смотрится, даже на глаз 
можно сказать, что сделать это не так-то просто.). 
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Конечно, это уже старая игрушка - еще 1989-го года. Но если внимательно 
проанализировать более свежих представителей этого жанра, то можно 
заметить, что по сути дела они становятся более изощренными ( 256 цветов, 
реалистическая графика и динамика поведения персонажей, совершенее 
звуковое сопровождение (геаі зоипсі) ). Но сам набор возможностей большого 
количества компьютерных игрушек функционально покрывается имеющимся 
в "Капитане Комике". 

Самая важная причина, по которой мне хотелось разобраться в 
компьютерных играх: удручающий дилетантизм в методической литературе, 
посвященной им: общие рассуждения, примитивные примеры... 

Результатом многочасовой ( и даже - многодневной! ) работы и является 
следующий цикл статей, который можно было бы подзаглавить "Техника 
реализации функциональных элементов компьютерных игрушек. 
Продвинутый этап ( абѵапсесі регіосі ). 

В данной статье мы кратко познакомимся с основными особенностями 
процесса взлома компьютерных игрушек. 

Немного остановимся на конкретных трудностях и путях их преодоления. 

Перечислим функциональные подсистемы "Капитана Комика" и пообещаем 
более полно рассказать об этих подсистемах в следующих статьях цикла. 

Первое, с чего нужно начинать взламывать компьютерную игрушку - это 
получение двоичной копии опаративной памяти, содержащей в себе 
работающую программу, так называемый слайд выполнения (ехесийоп зіісіе). 

Аргументов здесь несколько. 

Один из основных, - упаковка программ 005-овской утилитой ЕХЕРАСК. Что 
это значит для программиста: что он имеет возможность уменьшить 
количество места, требуемого для хранения своей программы, кроме того, 
уменьшается время загрузки программы с диска и все это за счет сжатия 
областей, заполненных последовательностями одинаковых байтов в 
специальный формат. 
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(Во время запуска такого файла на выполнение, сначала отрабатывается 
фрагмент, раскручивающий закодированный формат, и уже затем 
управление передается самой программе.) 

Для взломщика же это означает, что почти весь полученный после 
дизассемблирования загрузочного модуля текст игрушки оказывается 
непригодным для анализа. 

Часть данных интерпретируется, как программный код. Часть же адресов и 
смещений полностью теряет свой смысл: информация по этим адресам не 
соответствует действительности. 

Вот в этот момент и можно по достоинству оценить преимущество 
формирования ссылки в командах перехода 86 ассемблера относительно 
точки перехода: благодаря этому большие куски программы оказываются 
корректными! 

Поскольку в нашем дизассемблерном листинге и так будет много темных 
мест, не стоит усугублять себе задачу лишней работой (то есть, пытаться 
дизассемблировать текст загрузочного модуля). 

Лучше подумать над тем, как быстро сделать слайд программы. 

Трассировать упакованную игрушку - бесполезно: можно часами созерцать 
как ЕХЕРАСК-овский раскрутчик повторяет один и тот же цикл. 

Вычислить же начало истинной программы не всегда возможно. Кроме того, 
ставить точки прерывания по некоторым причинам (далее - более подробно) 
часто невозможно. 

Один из вариантов: когда я проанализировал начало Комика, то по контексту 
(встретился код операции открытия файла) обнаружил, что Комик довольно 
таки просто обрабатывает необходимые ему вспомогательные файлы. Если 
операция открытия файла возвращает ошибку, Комик восстанавливает 
адреса прерываний и возвращается в систему. 

Дальше все просто: уничтожив файл, содержащий экран заставки, запускаю 
(по Со) в отладчике Комика. Я действительно оказываюсь на нужном адресе. 
Остальное - дело техники и команды записи файла (ѴѴ) отладчика, и готов 
файл - слайд памяти. 
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Для попадания внутрь работающей программы с целью получить слайд 
памяти существует один довольно таки интересный способ: если мы 
запускаем отладчик АРЦ в резидентный режим, а после запуска на 
выполнение отлаживаемой (читай - взламываемой) программы 
нажимаем СТгІ-ЕЗС (код для выхова АРЦ), то последний честно 
перехватывает управление и, ломая графику и адреса векторов 
прерываний, дает нам возможность записать память не диск. 


Другой аргумент получения слайда памяти выполнения программы, он же - 
ьнекоторая причина невозможности трассировки программыь, упомянутая 
выше, 

• ІІЧТ 3. Оказывается, по тексту программы раскидан ІІЧТ 3! А через ІІЧТ 3, 
оказывается, Комик работает со своим музыкальным монитором. 

Для тех счастливцев, кто не знает, что такое ІІЧТ 3, объясняю: программные 
прерывания как таковые ( а ІІЧТ 3 является программным прерыванием), 
грубо говоря, эквивалент подпрограмм. Все прерывания - двухбайтные. Но 
одно сделано обнобайтным. Это ІІЧТ 3. Предназначено оно для целей 
организации отладчиками процесса работы с точками остановов: с адреса 
точки останова отладчик списывает байт, и на место этого байта 
записывается код ІІЧТ 3. По самому же ІЫТ-у ставится переход на отладчик. 
Далее по команде Со пользовательской программе передается управление, 
и последняя работает до тех пор пока не достигает команды ІІЧТ 3, которая и 
возвращает управление отладчику. 

Очень удобно, особенно если учесть, что один байт это все таки не 2. Вот это 
удобство и используют все отладчики. 

При запуске Комика, последний изменяет содержимое адреса прерывания 
ІІЧТ 3, что в отладчике и приводит к зависанию машины. 

Конечно, с точки зрения Майкла Денио, это быть может и кажется 
остроумной защитой от взламывания, я же поняв, что услугами 
отладчиков мне уже воспользоваться не придется, хорошей такую 
идею счесть, безусловно, не мог. 


Введение 


7 



Приключения Понерки Ксении или 25 лет Спустя 


Еще одно рассуждение о пользе слайдов памяти: многие предварительные 
установки, инициализации исходных переменных, фиксации состояний игры, 
будучи зафиксированными на слайдах памяти, оказывают дополнительную 
помощь в процессе осмысливания, то есть, восстановления смысла работы 
программы. 

После того, как мы получаем слайд выполняемой памяти программы, к 
нашим услугам прекрасная программа - Зоигзег (дай бог здоровья ее 
создателям: скольким программистам они сьекономили и его и времени!). 

Все, что происходит между получением листинга после Зоигзег-а и перед 
окончательным редактированием взламываемой вами программы - покрыто 
мраком. Это работа творческая. Одно могу отметить точно: тот, кто сказал, 
что проще написать свою программу, чем разобраться в чужой, явно 
приврал: на самом деле написать свою программу в такой ситуации во много 
раз (!!!) проще, а не просто ьпрощеь. 

Общими словами здесь, конечно, не обойтись, поэтому многие из 
встретившихся ситуаций психологической интерпретации кода будут 
проанализированы и описаны в следующих статьях, на конкретных 
примерах. 

Основное правило разбора в непрокомментированных текстах: после того, 
как получен листинг дизассемблера, компьютер до-о-лго не требуется: 
достаточно только стол и ручка. 

Еще раз вернемся к процессу трассировки. Да, безусловно, во многих 
случаях трассировка как таковая, во много раз повышает эффективность 
анализа программы. Видеть, что можно проверить свою гипотезу одной- 
единственной точкой останова и не иметь такой возможности, ну оч-чень 
обидно! 

Возможность достойно выйти из такой ситуации дает прекрасный отладчик 
РЕРІЗСОРЕ. Чем же этот отладчик так прекрасен? 

Он позволяет реализовывать пользовательские прерывания (изег іпіеггирі). В 
частности, одно из написанных мною прерываний организует программую 
точку останова через нужный мне двухбайтный ІІЧТ. (О технике работы с 
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точками останова было рассказано выше.) 

Другое свое (пользовательское) прерывание, которым я часто пользуюсь 
позволяет мне отлаживать программы, используемые графические режими. 

В чем дело? Если Вы отлаживали хоть какую-то графическую программу, Вы 
не могли не заметить: вернулись в отладчик, вернулись в программу, а на 
экране - грязные пятна вместо половины экрана... 

Диагноз прост: одладчик пользуется той же ОЗУ-ой (оперативной памятью), 
что и наша программа. 

Курс лечения не намного сложнее: возвращаем прерывание отладчику после 
того, как скопируем в буфер фрагмент ОЗУ экрана пользовательской 
программы, который портится, после отладчика - восстанавливаем это ОЗУ. 

И последнее, но не маловажное, о чем бы хотелось сказать. Об инструменте, 
который должен быть в арсенале взломщика программ, то есть, настоящего 
программиста. Значение его (инструмента) трудно даже и переоценить: он 
как фомка, как отмычка (для другого взломщика. 

Инструмент этот: таблица, в порядке возрастания кодов то второй колонке 
которой соответствующая им ассемблерная команда. 

Для 86-го процессора - попытайтесь вспомнить - такой таблицы 
нет, а ведь после дизассемблера - попробуйте возразить - нередко 
приходится самому поработать дизассемблером. 

А __ ІИ 


Изготовить такую штуку, конечно, просто, в отладчике набираем строки: 
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Эти нопы, естественно, нужны, потому что первый байт в команде - не 
обязательно единственный. А дальше - дизассемблируем (по I)) набранный 
текст, и наша фомка - готова! 
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Музыкальный проигрыватель. Статья посвящается технической стороне 
реализации музыкального сопровождения в игрушке "Капитан Комик". 

Кратко рассмотрен процесс звукоизвлечения при помощи компьютера. 
Рассказано о нюансах, связанных с необходимостью получать звук в 
фоновом режиме. Впрочем, эту информацию мы можем почерпнуть и из 
других литературных источников (список которых, конечно же, приводится). 

Более интересным является рассмотрение процесса взаимодействие 
музыкальной части с остальной программой игры: технология запуска 
мелодий, включение/отключение звука, реализация механизма приоритера 
мелодий, получение программой информации о состоянии мелодии. 

Материал полностью проиллюстрирован листингами, блок-схемами. Кроме 
того, приводится реализация функций, позволяющий организовать 
музыкальное сопровождение в любой пользовательской системе. 

Как пример, дается драйвер музыкального проигрывателя для систем, 
написанных на языке бВАЗЕ и ему подобных. 

Драйвер ввода. Клавиатура. Немаловажный момент: процесс ввода 
информации в машину приобретает особое значение в игрушках. 

Статья рассматривает вопросы опроса клавиатуры, проблемы фиксации 
нажатия/отпускания различных клавиш. Анализируются проблемы ввода 
информации с устройств типа джойстик/мышь. Приведены реализации 
конечных автоматов, позволяющих организовать функциональное 
соответствие устройств клавиатуре. 

Конечно, все проиллюстрировано фрагментами программ, рисунками. 

Драйверы графики: заставки, спрайты, панорамирование. Пожалуй, самый 
ответственный момент любой компьютерной игры - графика. 

И каких только технических ухищрений не используют при работе с экраном. 
Ведь счет времени идет на миллисекунды! Некоторые из этих ухищрений 
рассматриваются в данной статье. Анализируемые примеры и программы 
реализуют графические драйвера для адаптеров типа ЕСА/ѴСА. 
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Описаны процессы реализации спрайтовой графики. Приведены примеры 
анализа функциональной части игры, и коды программ, в которые 
выливается этот анализ (здесь, в частности, и рассмотрено 
панорамирование). 

Далее рассматриваются спецэффекты графики: мультипликация (явление 
Комика не пранету, дематериализация Комика), мигание (призы в уголке 
экрана), взблескивание (в первом и втором экранах заставки). 

Безусловно, техническая информация о графических адаптерах, 
операционной системе только повышает полезность статьи. 

Технология программирования компьютерной игры: идея, сюжет, реализация. 
Пожалуй, самое интересное, о чем реже всего предпочитают говорить книги 
и учебники, это организация работы при проектировании и 
программировании самой компьютерной игры. 

Приводится примерный план процесса реализации игрушки с учетом всех 
технических этапов; для каждого этапа приводится инструментарий, 
позволяющий облегчать построение элементов игры (графические/ 
музыкальные редакторы, мультипликаторы, встроенные средства отладки 
игр, специализированные языки программирования игрушек и т.п.). 

Здесь происходит знакомство с функциональной схемой работы "Капитана 
Комика", основными ее элементами. Приводится специфика отладки 
программ, работающих в режиме реального времени и реализующих 
динамику и элементы многопроцессности. 

Воссозданная последовательность поэтапной работы над программой 
"Капитан Комик", а также расклад работ по времени завершают изложение. 


Введение 
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Музыкальный Проигрыватель 
Как я взламывал Капитана Комика 
Часть II. Музыкальный проигрыватель 

Механизм, реализующий музыкальное сопровождение "Капитана Комика" 
работает следующим образом. 

Резидентная программа ти5іс_рІауег, висящая на 8-ом прерывании 
(прерывании таймера, которое обрабатывается каждые 55 миллисекунд) 

18.2 раза в секунду анализирует содержимое специальной области данных. 

И в зависимости от результатов анализа производит некоторые действия. 

Если в данный момент нет активной мелодии, просто передает управление 
оригинальной программе обработки 8-го прерывания. 

В случае, когда мелодия активна, анализируется длительность текущей 
ноты. (Конечно, ноты, заданной в виде частоты). Если длительность ноты 
отработана, выбирает следующую ноту. 

Если выбирается величина ООООН, выключает мелодию, сбрасывая значение 
соответствующих переменных. 

После того, как таймер 8253 запрограммирован на требуемую новой нотой 
частоту, анализируется признак включенности звука. И, если звук включен, то 
устанавливается бит 8255 схемы, разрешающий динамик. 

Установка значений переменных области данных производится программкой 
ти5Іс_шопііог. Передаваемая через регистры информация интерпретируется 
следующим образом: 

ах - код операции; 
сх - приоритет мелодии; 

Ьх - адрес мелодии. 


Музыкальный Проигрыватель 
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Что касается адреса мелодии. Поскольку в момент вызова не изменяется 
состояние регистра сіз, то мы можем фиксировать сіз как сегмент мелодии, 
следовательно, сама мелодия мелодия может располагаться в любом месте 
оперативной памяти. 

Содержимое региста сх позволяет музыкальному монитору реализовать 
механизм приоритета мелодий: монитор сравнивает приоритет текущей 
мелодии с приоритетом загружаемой мелодии. И если последний выше, то 
происходит запуск загружаемой мелодии, если нет, - отрабатывается старая 
мелодия. 

Обратим внимание: если мы в самой игрушке проходим границу 
панорамы, раздается характерная мелодия. Попробуем в момент 
игры этой мелодии нажать клавишу стрельбы (Іпзегі;) и убедиться, 
что пока мелодия не доиграет, звука выстрелов не слышно, хотя 
сам выстрел на экране происходит. 

В регисте ах передается код операции, по которому монитор устанавливает 
значение некоторых переменных, считываемых резидентом. Поскольку 
операции монитора и конкретные переменные тесно взаимосвязаны, опишем 
область данных, обслуживающих музыкальный монитор, привязывая их к 
операциям. 

о1сІ_іп1;_8 - переменная типа 66 (двойное слово); содержит старое 
(оригинальное) значение адреса перехода на программу 
обработки 8-го прерывания. 

ше1осІу_5І:а1:и5 - переменная (байт) содержит статус мелодии; 
операция 1 - выбрать новую мелодию - устанавливает 
значение данной переменной в Оп (числовой 
эквивалент - 1); 

операция 3 - выключить мелодию - сбрасывает значение 
этой переменной в О'Гб (числовой эквивалент - Ѳ); 
также в значение 01 = 1 = данная переменная устанавливается 
программой тизіс_р1ауег когда мелодия завершается 
естественным путем; 

операция 4 - возвратить статус мелодии - возвращает в 
регистре аб значение этой переменной, что позволяет 
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пользовательской программе, например, дождатьсся конца 
мелодии. 

зоипсІ_5І;а1;и5 - переменная (байт) содержит статус звука; 
операция Ѳ - включить звук устанавливает переменную в 
значение Оп; 

операция 2 - выключить звук устанавливает переменную в 
значение 01 = 1 = ; 

функциональные клавиши і 1, і 2 (запретить/разрешить звук) 
приводят к воздествию именно на эту клавишу. 

те1ос!у_ргіог1:у - приоритет мелодии (байт); 

переменная содержит значение приоритета мелодии; чем 
больше число, тем больший приоритет и, таким образом, 
для мелодий с приоритетами 1 и 4 будет выполняться 
вторая. 

те1осІу_5ед, 

рРг_сгп1:_по1:е - сегмент мелодии, указатель на текущую ноту - 
пара переменных (слово, слово) содержит 4-рех байтный 
указатель на текущую ноту; операция 1 - установить новую 
мелодию - устанавливает данные значения. 

1еп_сгпТ_по1:е - длительность текущей ноты - переменная (слово) 
содержит остаток длительности текущей ноты, который 
необходимо отыграть с данной частотой. 


Теперь мы может проанализировать алгоритм, по которому функционирует 
тизіс_рІауег 


сохранить регистры 

I 

загрузить сегмент мелодии 

ше1осІу_5ед 

I 

те1осІу_5І:а1:и5 == Оп? 

I 

декрементировать 


нет 


Музыкальный Проигрыватель 
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Іеп сгпТ поТе 


нет 


Да 


I 

1еп_сгп1;_по1;е == Ѳ? 

I 

увеличить указатель следующей 
ноты; выбрать след.ноту 

I 

следующая нота == ѲѲѲѲР? _ 

I 

выключить динамик 

I 

запрограммировать таймер 
на генерацию частоты 
[рТг_сгп1:_поТе] 
сегмента те1обу_5ед 

I 

выбрать длительность след.ноты 
и зафиксировать ее в 
1еп_сгп1:_по1:е 

I 


здддддд 5оипб_5І;а1;и5 == Оп? 

I I нет 

ВКЛЮЧИТЬ I 

дмнамик +- 

| +- 


выключить 

мелодию 

I 

- + 


I 

выключить динамик 

- + 

- + 

I 

передать управление по адресу 
оригинального прерывания 

I 

мммммммомммммммм 


восстановить регистры 


Как же Капитан Комик работает с данным музыкальным проигрывателем? 
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В начале игрушки происходит установка вектора 8-го прерывания, 
запускающая программу тизіс_рІауег. После чего мы может вызывать 
программу тизіс_топііог, допустим, следующим образом: 


Іеа 

Ьх, 

ссмещение мелодии> 

тоѵ 

ах. 

1 

; операция - установить новую мелодию 

тоѵ 

сх. 

4 

; приоритет мелодии - в Комике 


! 


- самый высокий 

саіі 

тіізіс. 

ЛОПІТОГ 


Для того, чтобы воспользоваться статусом мелодии, фрагмент кода будет 
выглядеть следующим образом: 

тоѵ ах, 4 ; код операции - получить статус мелодии 

саіі тизіслопіТог 

Іпг <адрес перехода в случае, если мелодия еще играет> 

; команды, которые выполняются, 

; когда мелодия уже отзвучала 


Чтобы усложнить процесс взлома игрушки, Михаил Денио предпочитает 
вызывать тизіс_шопііог через ІІЧТ 3, что не дает возможности 
протрассировать программу, либо поставить в ней точку останова (более 
подробно см. предыд. статью ). 

В этом случае, в процедуре инициализации векторов прерываний, третье 
прерывание устанавливается на программу тизіс_топког, а вызов 
программы выглядит так: 

тоѵ ах, 2 

іпі 3 ; для функции - выключить звук 

Перед выходом из программы в операционную систему, безусловно, 
необходимо восстановить оригинальные значения прерываний. 
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'Зсгееп # Ѳ 

Ѳ ( ігіТгосІисТіоп ѲЗ/25/91 

1 ( +- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -+ 

2 I I 

3 | реализация игрушки Зоко-Ьап предследует учебные | 

4 | цели и акцентирует внимание на критичных | 

5 | к процессу программирования местах | 


6 I I 

7 I I 

8 I I 

9 | программа продолжает славную | 

1Ѳ | серию реализаций игрушки Зоко-Ьап | 

11 | на различных языках программиро- | 

12 | вания от ІпзідЫ: согр., | 

13 | представляя РогіЬ | 

14 | | 

15 + -- -- -- -- -- -- -- -- -- -- (с) ІпзідЫ; согр., 1991 --+ 


Зсгееп # 1 

Ѳ ( слова для ввода клавиши и позиционирования курсора Ѳ1/Ѳ4/8Ѳ 

1 

2 

3 256 ССШЗТАІМТ Р_кеу ( системная константа - 

4 смещение для скан-кодов ) 

5 : 6ЕТКЕѴ ( — п ) ( системный ввод ) 

6 КЕУ 

7 ОиР Ѳ= ІР ЬРОР КЕУ Р_кеу + ТНЕЫ 

8 ; 

9 

10 : 60Т0_ХУ ( х у --- ) 

11 ЗМАР 2 * ЗЫАР 60Т0ХУ ; 

12 

13 : ВЕЦЦ ( — ) 7 ЕМІТ ; ( выдача звукового сигнала на консоль 

14 

15 --> 


Зсгееп # 2 

Ѳ ( определение констант 


Ѳ1/Ѳ4/8Ѳ 


РогЫп 
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1 НЕХ 

2 ( коды клавиш управления ) 1В С0М5ТАІМТ Р_езс 

3 20 С0М5ТАІМТ Р_гезТагТ 

4 Р_кеу 4В + С0М5ТАІМТ Р_І_еП Р_кеу 40 + С0М8ТАІЧТ Р Р±дИ1; 

5 р_кеу 48 + С0М8ТАІМТ Р_Ур Р_кеу 50 + С0М8ТАІМТ Р_0омп 

6 

7 80 С0М8ТАІЧТ С_сТг1_ЬІ1; 

8 7Р СОМЗТАІМТ С_ЬІТ_та5к 

9 ( — коды спрайтов игрушки — ) 

10 0 01ІР СОМЗТАІМТ 8_-рге_р1с С_СІГІ_ЬІ1: + С0М8ТАІМТ 5Ь_-рге_р1с 

11 1 01)Р С0М5ТАМТ 8_тап С_с1;г1_Ы1; + С0М8ТАІЧТ 8Ь_тап 

12 9 ОІІР С0М8ТАІМТ 8_1л/а11 С_сТг1_ЬІ1: + С0М5ТАМТ ЗЬ_1л/а11 

13 4 ОУР СОЫЗТАМТ 3_Ьох С_с1;г1_ЬІ1; + СОМЗТАЫТ 8Ь_Ьох 

14 ОЕСІМАІ. 

15 --> 


І_аЬога1:огу МісгозузТетз РС/РОРТН 2.0 21:24 10/11/90 гр.зсі 

Зсгееп # 3 

0 ( игрушечные переменные 03/23/91 ' 

1 

2 ѴАРІАВІ.Е МАЫ_Х 0 МАІ\І_Х ! 

3 ѴАРІАВІ.Е МАЫ_У 0 МАІ\І_Ѵ ! 

4 

5 ѴАРІАВІ.Е ЗС0РЕ_АІ_І_ 0 5С0РЕ_АІ_І_ ! ( максимальн. кол -во очков ) 

6 ѴАРІАВІ.Е ЗС0РЕ_МЕМ 0 5С0РЕ_МЕМ ! ( текущее кол-во очков ) 

7 


8 

: 8С0РЕ_ 

_АІ_І_++ 

( --- 

) 

8С0РЕ_АІ_І_ @ 

1 

+ 

8С0РЕ_ 

_АІ_І_ ! ; 

9 

: 8С0РЕ_ 

_АІ_І_ - - 

( --- 

) 

8С0РЕ_АІ_І_ @ 

1 

- 

8С0РЕ_ 

_АІ_І_ ! ; 

10 

: 8С0РЕ_ 

4МЕМ++ 

( --- 

) 

ЗСОРЕ.ЫЕМ @ 

1 

+ 

8С0РЕ_ 

4МЕМ ! ; 

11 

: 8С0РЕ_ 

4МЕМ-- 

( --- 

) 

ЗСОРЕ.ЫЕЫ @ 

1 

- 

8С0РЕ_ 

4МЕМ ! ; 

12 










13 

ѴАРІАВІ.Е КВРР_КЕУ 


( введенный с 

калвиатуры символ 

14 










15 

- -> 










Зсгееп # 4 

0 ( определение типа АРРАУ и определение поля игры 03/22/91 


РоіІЬ 
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1 ЗѲ ССШ5ТАМТ 6Р_СОІ 

2 2Ѳ СОМЗТАІМТ 6Р_ГО\л/ 

3 : АРРАУ ( #СОІ #ГОМ --- ) 

4 ЗЫАР СРЕАТЕ ОѴЕР , * АІ_І_ОТ 

5 Э0Е5> ( #СОІ #Г0\л/-А ) 

6 Ои? @ РОТ * + + 2+ ; 

7 

8 6Р_ГОМ 6Р_СОІ АРРАУ 6Р 

9 

1Ѳ : 6Р@ ( #со1 #гом — п ) 6Р С@ ; 

11 : 6Р! ( п #со1 #го\л/ — ) 6Р С! ; 

12 : .6Р ( \ сосі-ііпе ( #со1 #гоы — ) 

13 6Р АЗСII # ЫОРО СОУМТ РОТ ЗЫАР СМОѴЕ> ; 

14 

15 --> 


Зсгееп # 5 


Ѳ ( инициализация игровой ситуации 

1 : ОР_СІ_ЕАР ( -- ) 6Р_Г ОѴ\/ Ѳ РО 6Р_СОІ Ѳ РО Ѳ I 3 6Р! 


2 

6Р 

_СІ_ЕАР 

3 

Ѳ 

1 

.6Р 

4 

Ѳ 

2 

.6Р 

5 

Ѳ 

3 

.6Р 

6 

Ѳ 

4 

.6Р 

7 

Ѳ 

5 

.СР 

8 

Ѳ 

6 

.6Р 

9 

Ѳ 

7 

.СР 

1Ѳ 

Ѳ 

8 

.6Р 

11 

Ѳ 

9 

.СР 

12 

Ѳ 

10 

.6Р 

13 

Ѳ 

11 

.СР 

14 

Ѳ 

12 

.6Р 

15 

— 

> 



ѲЗ/22/91 
ЮОР ЮОР 


ЕаЬогаТогу МісгозузТешз РС/РОРТН 2.Ѳ 21:24 1Ѳ/11/9Ѳ гр.зсі 

Зсгееп # 6 

Ѳ ( конвертер внешнего представления игры в внутреннее 03/23/91 ' 


РоіІЬ 
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1 


2 

: 6Р_ 

1— 
о: 
ш 
> 
г 
о 
о 

1 


- ) 





3 

6Р_ 

_ Г0\л/ Ѳ 00 

6Р_ 

_С0І 

Ѳ 00 I 0 

6Р@ САЗЕ 



4 


АЗС II 

Ѳ 

0Р 

3_-рге_р1с 

ЕШ0Р 



5 


АЗС II 

9 

0Р 

5_ма11 

ЕШ0Р 



6 


АЗС II 

4 

0Р 

3_Ьох 

ЕШОР 



7 


АЗС II 

3 

0Р 

ЗЬ_Рге_р1с 

5С0РЕ_АІ_І_++ ЕШОР 

8 


АЗС II 

7 

0Р 

ЗЬ_Ьох 5С0РЕ_МЕЫ++ 

ЗС0РЕ_ 

АИ++ ЕШОР 

9 


АЗС II 

1 

0Р 

3_тап I 

МАІ\І_Х ! 

3 МАМ 

_У ! ЕШОР 

10 


АЗС II 

# 

0Р 

3_Рге_р1с 

ЕШОР 



11 


( сіе-раиіі: ) 

5_-рге_р1с 

ЗЫАР 



12 

ЕШСАЗЕ I 3 

6Р! 

1_00Р ЮОР ; 




13 

- -> 








14 









15 










Зсгееп 

# 7 







Ѳ ( 

вывод спрайта 






03/23/91 

1 : 

5РРІТЕ_01ІТ ( п 

— 

) 





2 

САЗЕ 







3 

3_Рге_р1с 

ОР 

II 

" ЕШОР 




4 

5Ь_-рге_р1с 

ОР 

II 

. " ЕШОР 




5 

5_іл/а11 

ОР 

178 

ЕМІТ 178 

ЕМІТ 

ЕШОР 


6 

5Ь_ма11 

ОР 

178 

ЕМІТ 178 

ЕМІТ 

ЕШОР 


7 

5_тап 

ОР 

II 

X м ЕШОР 




8 

5Ь_тап 

ОР 

II 

><" ЕШОР 




9 

5_Ьох 

ОР 

II 

о" ЕШОР 




10 

5Ь_Ьох 

ОР 

17 

ЕМІТ 16 

ЕМІТ 

ЕШОР 



11 ЕШСА5Е ; 

12 --> 

13 

14 

15 


Зсгееп # 8 

Ѳ ( системный вывод спрайта 03/23/91 

1 : 5РРІТЕ_ЗН0М ( х у і --- ) 

2 >Р 2РІІР 6Р@ ЗЬ_Ьох = ІР 


РоіІЬ 
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3 Р> ОІІР >Р 5_Ьох <> ІР ЗС0РЕ_МЕѴ\/- - ТНЕМ ТНЕМ 

4 201ІР 6Р@ С_сТг1_ЫТ АЫР Ѳ <> ІР 

5 Р> ОІІР >Р 3_Ьох = ІР 5С0РЕ_МЕМ++ ТНЕМ ТНЕМ 

6 2ЭІІР 6Р ОІІР С@ С_с 1;г 1_Ь± 1; АМО Р> ОР ОІІР >Р ЗМАР С! 

7 

8 60Т0_ХУ Р> ЗРРІТЕ_01ІТ ; 

9 

1Ѳ : СР_ЗН0М ( --- ) 

11 6Р_Г0іл/ Ѳ 00 6Р_С0І Ѳ 00 I 3 201ІР 6Р@ 5РРІТЕ_ЗН01л/ ЮОР ЮОР ; 

12 

13 --> 

14 

15 


І_аЬога1:огу МісгозузТешз РС/РОРТН 2.0 21:24 10/11/90 гр.зсі 


Зсгееп # 9 


Ѳ ( слово М0ѴІМ6 - изюминка нашего дела 


03/23/91 


1 : 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


М0ѴІМ6 ( СІІТ_Х сІ11:_у --- ) 2011Р 

>Р МАМ_Х @ + Р> МАМ_У @ + 6Р@ С_ыі;_та5к АМ0 5_-рге_р1с = 
ІР >Р МАМ_Х @ + МАМ_Х ! Р> МАМ_У @ + МАМ_У ! 

Е1.5Е 201ІР 

>Р МАМ_Х @ + Р> МАМ_У @ + 6Р@ С.ЫОпазк АМ0 3_Ьох = 
ІР 201ІР >Р 2 * МАМ_Х @ + Р> 2 * МАМ_У @ + 

6Р@ С_Ы1;_та5к АМ0 3_-рге_р1с = 

ІР 2011Р >Р МАМ_Х @ + Р> МАМ_У @ + 3_-Гге_р1с 

5РРІТЕ_5Н0М 

201ІР >Р 2 * МАМ_Х @ + Р> 2 * МАМ_У @ + 3_Ьох 
5РРІТЕ_5Н0М 

>Р МАМ_Х @ + МАМ_Х ! Р> МАМ_У @ + МАМ_У ! 
ЕІ_5Е 20Р0Р ТНЕМ 
ЕІ.5Е 20Р0Р ТНЕМ 
ТНЕМ ; --> 


Зсгееп # 10 

0 ( основной цикл игры 03/23/91 

1 : 6АМЕ_Р01ІМ0 ( --- ) 

2 ВЕ6ІМ 
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3 МАІ\І_Х @ МАІ\І_У @ 5_тап 5РР1ТЕ_5Н0М 

4 6ЕТКЕУ КВР0_КЕУ ! 

5 МАЫ_Х @ МАЫ_У @ 5_-Гге_р1с 5РР1ТЕ_5Н0М 

6 КВР0_КЕУ @ САЗЕ 

7 Р_І_еП ОР -1 Ѳ М0ѴІМ6 ЕИООР 

8 Р_РІдИТ ОР 1 Ѳ М0ѴІМ6 ЕМООР 

9 Р_Ур ОР Ѳ -1 М0ѴІМ6 ЕМООР 


10 

Р_0ОМП ОР 0 

1 М0ѴІМ6 ЕМООР 

11 

ЕМ0СА5Е 


12 

5С0РЕ_МЕМ @ 5С0РЕ_АП @ = 


13 

КВР0_КЕУ @ Р_езс = 


14 

КВР0_КЕУ @ Р_гез1аН = 

ОР ОР ІІМТП. ; 

15 

- -> 



Зсгееп # 11 

Ѳ ( запуск игры и раздача слоников 

1 : 0АМЕ_РІІ5НЕР ( --- ) 

2 СР_СОІ\ІѴЕРТ 

3 6Р_5Н0М ВЕН ВЕН 

4 

5 6АМЕ_Р01Ш0 

6 

7 10 17 60Т0_ХУ ВЕН ВЕН ВЕН 

8 ЗС0РЕ_МЕМ @ 5С0РЕ_АП @ = 

9 ІР МАЛАДЕЦ " 

10 ЕІ.ЗЕ . " СЛАББАК " 

11 ТНЕМ 

12 10 19 60Т0_ХУ ; 

13 

14 6АМЕ_РІІ5НЕР ( ...поехали! ) 

15 

БаЬогаТогу МісгозузТетз РС/РОРТН 2.0 21:24 
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10/11/90 гр.ЗСі 
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Одна игра на разных языках разные игры на 
одном языке 

Бейсик, Паскаль, Си, Ассемблер, Форт, Фортран, диБейзІІІ, Солт ( 
Мульти-Эдит, Смолток. Пока достаточно. Можно ли назвать то 
общее, что могло бы объединять эти языки. И если раньше этим 
общим было только то, что все это - языки программирования, то 
теперь к ним прибавилась еще одна черта: игрушка 5око-Вап, 
которая далее будет реализована на всех этих языках. 


Предисловие 

Как-то раз, в молодости, восхищенный логически выверенными 
построениями лабиринтов игрушки 8око-Вап, я решил запрограммировать 
ее. Сделал это на Паскале. И, убедившись, что программа работает, отложил 
листинг куда-то в сторону. В самом деле, не продавать же его было 
американцам. 

И вот некоторое время спустя произошла следующая история. Встретился с 
одним товарищем. Тот попросил рассказать о языке Паскаль. Я начал 
рассказывать, обяснил типы, операторы, процедуры, строение программы. А 
когда дело дошло до примера программы на языке вдруг вспомнил о когда- 
то написанном листинге с игрушкой Зоко-Ьап. Быстренько введя друга в 
алгоритм функционирования игры, я тут же указывал на соответствующий 
фрагмент программы... А поскольку и игра и программа представляли собой 
завершенное построение, то мой рассказ о языке Паскаль не просто 
отложился в деталях в голове товарища, но сделал это [рассказ] в виде 
единого целого. 

И, по-достоинству оценив методическую помощь, оказанную мне 
программой, в следующий раз другому товарищу я начал сразу же 
рассказывать о языке Паскаль на примере листинга. 
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Но это, оказалось было не все. И когда в одной ситуации, мне пришлось 
тому же товарищу, который уже знал Паскаль, объяснять язык Си, я снова 
прибег к помощи того же листинга игрушки Зоко-Вап. Поскольку с 
алгоритмом игры он уже был знаком, как алгоритм был реализован на 
Паскале знал, мы бысто, указывая на общее и разное в обоих языках, 
наваяли программу на Си. 

Более того, когда мне, как преподавателю необходимо было студентов, 
знающим Паскаль, обучать языку Ассемблера, мой старый листинг снова 
пригодился мне: я предложил им реализовать программу с языка Паскаль, 
на язык Ассемблера. А поскольку в данном случае в их задачу вошло еще и 
разобраться самим в алгоритме программы (фактически восстановить его из 
программы), то качество усвоения материала, я вас уверяю, увеличилось. 

Вот таким образом обстояло дело исторически. 

Что же имеем мы на сегодняшний день? И что представляет собой данная 
статья? Что вы, читатель, можете извлечь из нее полезного для себя? 

Но по-порядку. Первый раздел статьи, не считая ее введения, представляет 
описание алгоритма игры Зоко-Ьап, проанализированный с точки зрения 
сложности ее программной реализации. 

Дальнейшие же разделы являют собой собственно программы - реализации 
игры на различных языках программирования. Вводные параграфы каждого 
"программного" раздела представляют язык, анализируют его характерные, 
особенности (конечно, кратко), и описывают конкретные нюансы реализации 
алгоритма игры на данном языке. Листинг же, следующий далее, подробно и 
откоментированно реализует игрушку. 

Листинги разных игр похожи друг на друга в той же степени, в которой 
похожи одни на одного сами языки. Причем немногим более, чем 
поверхностный анализ программ уже показывает, что они представляют 
собой не переписанный алгоритм, реализованный на Паскале, к примеру, а в 
каждом языке, точнее в программе на соответствующем языке передан и 
сохранен дух самого языка, сохранены особенности технологии 
производства программ на данном языке и стилистика языка. 
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При описании программ и в их [программ] комментариях используется 
терминология, характерная для того или иного языка. Так, программа на 
Форте, состоит из экранов, определений слов. В реализации на Смолтоке 
приведен полностью протокол класса, инициализированы необходимые 
экземпляры и методы применительно к подмножеству реализации Смолтока 
ЗтаІІІаІк/Ѵ. Причем предыдущий абзац вряд ли будет понят читателем, 
имеющем смутное представление о Форте или Смолтоке. Но тем, кто знает 
язык, и что важнее, тем кто тот или иной язык изучает, такой подход позволит 
проверять свое знание языка и понимание его. 

Тот факт, что каждый язык предназначен для конкретных целей и решает 
эффективнее именно те задачи, для которых спроектирован, не только не 
оспоряется автором, но даже подтверждается каждой программой, (куда уж 
характернее пример программы на макро-языке редактора Мульти-Эдит, 
который, безусловно, хорош для написания макрокоманд обработки текста в 
среде редактора и заставил поломать голову при программировании вещи, 
совершенно не свойственной для редакторов текстов: написание программы 
с элементами интерактивного взаимодействия, являющейся к тому же 
компьютерной игрушкой). И тем не менее, такой подход оправдан. Ибо 
программисту, пользующемуся Мульти-Эдитом и решившему написать 
быстренько макро-команду, не имевшему ранее дело с макро-языками 
(допустим, Траком) это "быстренько" не только выльется в определенный 
(достаточно-таки длительный) период времени, но и отобьет всякую охоту 
заниматься этим в следующий раз. Данная же программа игрушки, 
потребовав на разбор не много, все-таки, времени, даст необходимый 
минимум знаний особенностей упомянутого макро-языка. 

Таким образом, данное произведение следует воспринимать не только как 
курьез в области программирования, но и как справочник по языкам 
программирования в их сравнительном плане. (Более точно можно сказать: 
справочник по фразеологии языков программирования.) 

Идея и реализация данной статьи чем-то перекликается с существовавшей в 
свое время (молодое поколение программистов вряд-ли помнит об этом, но 
было! было...) традицией писать на разных языках программирования 
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интроспективные программы, что позволяло судить о выразительной мощи 
языков. И следовательно языкам менее "выразительно мощным" не 
чувствовать себя ущербными. 

Несколько слов о выборе языков программирования. В данном издании 
статьи будут приведены программы на тех языках, которые распространены 
сейчас в среде ІВМ РС-подобных машинах, то есть там, где не только не 
сложно (относительно) достать тот или иной компилятор того или другого 
языка, но и подбирались языки, все-таки распространенные в данной среде. 

Алгоритм игры Зоко-Вап 

Сначала, почему именно данная игрушка удостоена такого пристального 
внимания? Во-первых, так сложилось исторически, как можно узнать из 
предисловия. Во-вторых, программа, используемая сданной целью (а 
именно 

• с целью быть написанной на разных языках и приведенной в листингах 
полностью) должна удовлетворять ряду условий: быть не слишком 
большой, но и не слишком маленькой, быть не слишком сложной, но и 
не слишком простой. В-третьих, программа должна удовлетворять ряду 
общих требований: быть интересной, зрелищной и т.д. 

Совокупность данных требований и позволила остановиться на игрушке 
Зоко-Вап. 

Принцип игры 

Во всех версиях игра (и это было одним из требований технического 
задания) внешне выглядит следующим образом: 
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Игра относится к классу логических головоломок и представляет собой 
лабиринт выложенный (во всех версиях данных реализаций) спрайтом, или 
изображением стенки |}=||=. Тут и там в лабиринте раскиданы или 
расположены изображения ящиков <>. А еще в лабиринте находятся 
изображения мест ящиков . . Главный герой игры >< (в меру - упитан, в меру 
- воспитан, в меру - симпатичен), часто в листингах называется двигателем, 
потому что двигает ящики, при помощи нажатия юзером клавиш ІІр, І_еК, 
Кідііі и йоѵѵп передвигается по лабиринту, натыкаясь на стенки и на ящики. 
Причем, если ящик один, а после него (в направлении по оси герой-ящик) 
находится свободное пространство, то при нажатии в данном направлении 
соответствующей клавиши, ящик сдвигается в том направлении. То есть, 
главный герой двигает ящики по лабиринту и пытается устанавливать их на 
места для ящиков. Если ящик становится на свое место, то он уже выглядит 
следующим образом шш (только повернутым на 45 градусов). 

Вот цель-то игры и состоит в том, чтобы двигатель установил все ящики на 
соответствующие места. А ввиду ограничений, имманентных игре, (именно: 
если ящик подтолкнули к стене в углу, его оттуда уже не выковыряешь - раз, 
и два ящика толкать - силенок не хватает - два) игра, особенно на 
дальнейших лабиринтах, становится нетривиальной логической задачей. 

Нюансами реализации, требующими особой проработки являются 
следующиме несколько мест в игре. 
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Во-первых, это различная реакция графических изображений частей игры 
(далее - спрайтов) на свое местонахождение. А именно, если герой 
находится на пустом месте, он выглядит следующим образом: ><. Если он 
наступает на место для ящика, он опять-таки выглядим вышеприведенным 
образом, в отличии от ящика, который на пустом месте выглядит <>, а на 
месте для ящика - шш (только повернутым на 45 градусов). 

Второе (учитывающее первое) это момент инициализации различных 
лабиринтов в игре. Ибо в разных лабиринтах бывает разнообразие 
следующих ситуаций: ящик на пустом месте, ящик на месте для ящика, герой 
на пустом месте, герой на месте для ящика(! - попробуй внешне различить!). 

Третье, проистекающее из первого и второго - это момент подсчета очков: 
как и каким образом его осуществлять, если учитывать, что мы пишем не 
только универсальный алгоритм обработки множества различных 
лабиринтов, но и эффективный по времени выполнения алгоритм. 

Прежде всего, о программе в целом и об игрушке как программе. 

В любой компьютерной игрушке (и наша не является исключением) можем 
мы различить следующие части: 

- логический драйвер устройств ввода; 

- драйвер устройств вывода; 

- структуры данных (как внутри игрушки, так и вне ее - форматы 
данных, хранящихся в файлах и т.д.); 

- основной цикл игры. 

А ___Ш"2] 


Логический драйвер ввода 

То, что так красиво называется, является, грубо говоря, подпрограммой, а 
точнее выражаясь, функцией, занимающейся вводом команд с клавиатуры. 
Хотя в более сложных игрушках драйвер ввода обрабатывает разные 
устройства ввода: мыши, джойстики, птицы... 
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Так вот, программы уровня непосредственно обработки устройств ввода 
называть принято драйверами. А программы, с которыми взаимодействует 
игрушка, принято называть логическим драйвером ввода (понимание этих 
слов понадобится нам при чтении листингов). 

В частности, логический драйвер унифицирует ввод, что позволяет 
запараллеливать при необходимости работу клавиатуры и мыши, например. 

Драйвер устройств вывода 

Драйвер вывода мы собираемся писать таким образом, чтобы он был 
универсален. А под универсальностью мы будем понимать возможность для 
себя с минимальными затратами вводить на любом этапе работы изменения 
в программу. 

Структуры данных и алгоритмы их обработки 

Безусловно, уже глядя на лабиринт игрушки, мы понимает, что основной 
структурой данных в программе будет массив, где будет закодирована 
информация о текущем состоянии в игре. Более тонким является вопрос, 
каким образом мы будем хранить информацию в этом массиве. Но не будем 
томить читателя последовательностью рассуждений о возникающих на 
каждом шагу трудностях и путях их преодоления. Перейдем к конечному 
результату. 

Массив игры представляет собой эквивалент изображения на экране, но в 
кодах, что позволяет функции движения осуществлять проверку 
корректности перемещения по лабиринту. 

Каждая позиция массива игры хранит код спрайта, который находится на 
соответствующем ему месте на экране. Но! Старший бит каждой позиции 
является признаком того, есть ли данная позиция местом для хранения 
ящика, таким образом, если данная координата содержит код спрайта 
границы лабиринта, то код ее будет... один. А если данная координата 
является местом для установки ящика, то код ее будет другой, но старший 
бит данной позиции в массиве игры будет установлен в единицу. 

Далее, вводится два набора спрайтов. Во втором код каждого спрайта имеет 
установлен старший бит. При такой кодировке функция вывода спрайта на 
экран пишется для каждого набора спрайтов. 
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Что позволяет успешно преодолеть первую из перечисленных нами 
трудностей. Функция вывода спрайта будет выводить для кода героя и кода 
героя с установленным старшим битом одно и то же изображение, а для кода 
ящика и кода ящика, установленного на место - разные изображения. 

Похожая кодировка позволяет преодолеть и вторую нашу трудность, 
связанную с инициализацией следующего лабиринта. Один код мы 
используем для кодирования героя, стоящего на пустом месте, другой - для 
героя, который стоит на месте, предназначенном для установки ящика. 

Причем, при инициализации лабиринта мы используем два счетчика в 
игрушке: общее количество мест для установки ящиков и количество уже 
установленных на место ящиков. Если при этом учеть еще и принцип, по 
которому мы собирается обрабатывать визуализацию перемещения - если 
по координате, на которой только что стоял ящик, пишется не-ящик, 
уменьшить счетчик количества поставленных на место ящиков; если же по 
координате, на которой должен стоять ящик, пишется код ящика, то 
увеличить счетчик количество пославленных на место ящиков - то 
становится ясным, как божий день, как определить завершение игры: 
сравнить значение обоих счетчиков. При равенстве значений, все ящики 
установлены на предназначенные для них места. Что, собственно говоря, и 
позволяет преодолеть нам третью трудность, встреченную на пути 
реализации игрушки. 

И, перед тем, как перейти к собственно программам, еще одно слово об 
обработке движений главного героя. 

Процедура перемещения главного героя осуществляет обработку движения 
в заданном направлении. Направление задается парой смещений: дельта-Х 
и дельта-У, которые позволяют одному алгоритму обрабатывать сразу 
четыре направления (как выразился бы поэт: одним выстрелом убить сразу 
четыре зайца). Так, например, если дельта-Х = 0, а дельта-У = + 1, то это 
означает, что отрабатывается движение в направлении вниз, то есть, 
согласно следующей системе координат: 
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Л ( ѳ, -1 ) 
} 


( -1, ѳ ) } ( + 1, ѳ ) 

} 

ѵ ( ѳ, + 1 ) 


Вот в данном направлении, оператор 
массив_игры[ координата-Х + дельта-Х, координата-У + дельта-У ] 

обеспечит обращение к позиции по координате в нужном направлении, а 
оператор 

массив_игры[ координата-Х + дельта-Х 2, координата-У + дельта-У 2 ] 
к позиции, второй от текущей по данной координате. 

Вот, собственно по-существу и все. Перейдем к делу. 
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Паскаль 


Паскаль 
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$МАСПО ПР ТРАЫ5; 

^******************************* МІ л_ ТІ _ Е0ІТ маско****************** 5 

Мате: РР ( гиззіап ризііег - аІТгпаІііѵе пате оР 5око-Вап ) 

ОезсгірТіоп : программа продолжает славную серию реализаций игрушки 
5око-Вап на различных языках программирования 
от Іпзідііі; согр., 
представляя МиІТі-ЕсІіІ: . . . 

(С) Соругідііі; 1991 Ьу ІпзідИІ; согр. 


{ Несколько слов о соглашениях именования переменных в языке, 
облегчающих программирования. 


Поскольку регистр в именах переменных - неважен, имена принято не 
дополнительным смыслом, а именно: 

если все буквы в имени переменной - большие, то данная перемет 
используется как константа; 

собственно переменные в МиІІіЕбіІ; обозначаются одним или неско; 
словами, написанными через символ подчеркивание, все слова начі 
с большой буквы; 

если в переменной до символа подчеркивания две больших буквы, і 
- маленькие, то данная переменная будет формальным параметром е 
функции 


Ое-р_ІПІ( Р_КЕУ, Р_Е5С, Р_ПЕ5ТАПТ, Р_І_ЕРТ, Р_ПІ6НТ, Р_ІІР, Р_00МІ\І, 
С_СТПІ__ВІТ, С_ВІТ_МА5К, 

5_РНЕЕ_Р ЕАСЕ, 5В_РРЕЕ_РЕАСЕ, 5_МАМ, ЗВ_МАМ, 5_МАІ_І_, 5В_\л/АІ_І_, 
5_В0Х, 5В_В0Х ); 

Р_КЕѴ : = 256; 


Р_Е5С := 27; 

Р_І_ЕРТ : = Р_КЕУ + $4Ь; 
Р_РІ6НТ : = Р_КЕУ + $46; 
Р_ІІР := Р_КЕУ + $48; 
Р_00Ш : = Р_КЕУ + $5Ѳ ; 


Р_РЕ5ТАРТ : = 32; 
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С_СТРІ__ВІТ := $8Ѳ; 
С_ВІТ_МА8К : = $7"Г; 


8_РРЕЕ_РІ_АСЕ := 0; 

3_МАЫ := 1; 

8_Ѵ\/АІ_І_ := 9; 

8_В0Х := 4; 


8 В_Р Р Е Е_Р І_ АСЕ : = С_СТРІ__ВІТ + 8_РРЕЕ_Р1 

8В.МАЫ : = С_СТРІ__ВІТ + 8_МАЫ; 

8В_МАІ_І_ : = С_СТРІ__ВІТ + 8_МАІ_І_; 

8В_В0Х : = С_СТРІ__ВІТ + 8_В0Х; 


0е-р_Іп1;( і, і, 

Мап_Х, Мап_Ѵ, 

КЬгсІ_Кеу, 

8соге_Мем, 8соге_А11 

) ; 

0е-р_Іп1:( 88_х, 88_у, 88_СІ, 88_Туре, 
МѴ_х, МѴ_у 
); 


{ задаем длину массива: 2Ѳ * 31 = 62Ѳ } 
0еГ_8Тг( Маге[ 62Ѳ ], 6Р[ 62Ѳ ], 
88_сИаг[ 2 ] ); 


РиТ_Вох( 5, 4, 7Ѳ, 2Ѳ, РЕР, ЫНІТЕ, 

ь 8око-Вап дате /МиІТі-ЕсІіІ: ѵегзіоп/ ь, ТРІІЕ ); 

Веер; 


{ 


{ исходное поле игры } 

{ 

{ 


Маге 

■ ц 


Маге 

:= Маге 

+ 

Маге 

:= Маге 

+ 

Маге 

:= Маге 

+ 

Маге 

:= Маге 

+ 

Маге 

:= Маге 

+ 


Ѳ 1 2 3 } 

12345678 9Ѳ123456 78 9Ѳ123456789Ѳ1 } 

ьѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь ; 
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Маге := Маге + ьѲѲѲ999Ѳ9Ѳ999Ѳ9ѲѲѲѲѲ999999ѲѲѲѲѲь; 

маге := Маге + ьѲѲѲ9ѲѲѲ9Ѳ999Ѳ9999999ѲѲ339ѲѲѲѲѲь; 

маге := Маге + ьѲѲѲ9Ѳ4ѲѲ4ѲѲѲѲѲѲѲѲѲѲѲѲѲ339ѲѲѲѲѲь; 

маге : = Маге + ьѲѲѲ99999Ѳ9999Ѳ919999ѲѲ339ѲѲѲѲѲь; 

маге : = Маге + ьѲѲѲѲѲѲѲ9ѲѲѲѲѲѲ999ѲѲ999999ѲѲѲѲѲь; 

маге : = Маге + ьѲѲѲѲѲѲѲ99999999ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь; 

маге : = Маге + ьѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь; 

{- считывание лабиринта - 

5соге_А11 := Ѳ; 

5соге_Мем := Ѳ; 


Ое-Г_СИаг( СгпТ ); 
і := Ѳ; 

мбііе ( і <= 12 ) сіо 
] := 1 ; 

мііііе ( і <= ЗѲ ) сіо 


55_х 

:= У 

55_у 

:= і; 

СгпТ 

: = Сору( Маге 


іб ( СгпТ = ьѲь ) ТНеп 

55_СІ := 3_РРЕЕ_РІ_АСЕ; 

еізе іб ( СгпТ = ь9ь ) ТРеп 

55_СІ := 5_МАІ_І_; 

еізе іб ( СгпТ = ь4ь ) ТИеп 

55_СІ := 3_В0Х; 

еізе іі ( СгпТ = ьЗь ) ТИеп 

53_с! : = 5Ь_бгее_р1асе; 

5соге_АІ1 : = 5соге_АІ1 + 1; 
еізе іб ( СгпТ = ь7ь ) ТИеп 

35_ с! := 5В_В0Х; 

Зсоге_А11 := 5соге_А11 + 1; 
Зсоге_Мем := 5соге_Мем + 1; 
еізе іб ( СгпТ = ьіь ) ІІіеп 

53_СІ 5_МАЫ; 

Мап_Х := і ; 

Мап_У := і; 

еізе іб ( СгпТ = ь2ь ) ІІіеп 

33_СІ := 5Ь_МАІ\І; 

Мап_Х := і; 
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Мап_У := і; 

5соге_А11 := 5соге_А11 + 1; 
епсі; епсі; епсі; епсі; епсі; епсі; епсі; 
саіі 5ргііе_5Ііоѵ\/; 

і ■= і+і; 

епсі; 

і := і+1; 
епсі; 

{ 


Мгі1:е( ь І-еіІі/РідІіі/Оомп/Іір - тоѵіпд Езс/5расе - ехіі ь, 
14, 19, РЕЭ, ЫНІТЕ ); 

Веер; Веер; 

{ основной цикл игрушки } 

0е1 = _Іп 1; ( 6ате_Уез ); 

6ате_Уез : = ТРІІЕ; 

мііііе ( 6ате_Уез ) сіо 

55_х : = Мап_Х; 55_У : = Мап_У; 55_сІ : = 5_МАІ\І; 
саіі 5ргііе_зНоѵ\/; 

Реас1_Кеу; { введем символ } 
і-Г ( Кеуі = Ѳ ) ТРеп 

КЬгсІ_Кеу : = Р_КЕУ + кеу2; 
еізе КЬгсІ_Кеу := Кеуі; епсі; 

55_х : = Мап_Х; 55_у : = Мап_У; 55_сІ : = 5_РРЕЕ_РІ_АСЕ; 
саіі 5ргііе_5Ноѵ\/; 

іі ( КЬгсІ_Кеу = Р_І_ЕРТ ) іііеп 

МѴ_х : = -1; МѴ_у := Ѳ; 
саіі Моѵіпд; 

еізе іі ( КЬгсІ_Кеу = Р_РІ6НТ ) ТРеп 
МѴ_х := 1; МѴ_у : = Ѳ; 
саіі Моѵіпд; 

еізе іі ( КЬгсІ_Кеу = Р_ІІР ) іііеп 
МѴ_х : = Ѳ; МѴ_у : = -1; 
саіі Моѵіпд; 

еізе іі ( КЬгсІ_Кеу = Р_00Ш ) ТНеп 
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МѴ_х := Ѳ; МѴ_у := 1; 
саіі Моѵіпд; 
епсі; епсі; епсі; епсі; 

іб ( ( 5соге_Мем = 5соге_А11 ) 

ог ( КЬгсі_Кеу = Р_Е5С ) ог ( КЬгсІ_Кеу = Р_РЕ5ТАРТ ) ) ТНеп 
6ате_Уез : = РАІ.5Е; 
епсі; 
епсі; 

{ 

іб ( 5соге_Мем = 5соге_АІ1 ) ТИеп 

Ыгі1;е( ьммммммммммммм *** таладец! *** мммммммммммммь, 
14, 19, РЕО, ЫНІТЕ ); 

еізе 

Ыгі1;е( ьммммммммммммм *** слаб-б-бак! *** мммммммммммммь, 
14, 19, РЕО, ЫНІТЕ ); 

епсі; 

Веер; Веер; Веер; 

РеасІ_Кеу; 

Кі11_Вох; 


доіо Епс1_0-р_Масго; 

{ 

^************************ МІ л_ ТІ _ Е0ІТ М асро зубровт ^ е ************** 5 
ЗиЬгоиТіпе Мате: 

ЗиЬгоиТіпе Оезсгірііоп : 

5ргі1е_5бом: { подпрограмма вывода спрайта /локальная/ 
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55_х - координата по горизонтали 
55_у - координата по вертикали 
55_ сі - данное } 

І І ( А5СІІ (Сору( ер, 55_у*ЗѲ+55_х, 1) ) = 5В_В0Х ) РРіеп 

ІР ( 55_ СІ <> 5_В0Х ) РРіеп 

5соге_Мем : = 5соге_Мем - 1; 
епсі; епсі; 

І І ( (А5СІІ(Сору( 6Р, 55_у*ЗѲ+55_х, 1) ) 
апсі С_СТРІ__ВІТ ) <> Ѳ ) РРіеп 
ІР ( 55_СІ = 3_В0Х ) РРіеп 

5соге_Мем := 5соге_Мем + 1; 
епсі; епсі; 

6Р := ЗРг_Іпз( СРіаг ( (Азсіі(Сору( 6Р, 35_у*ЗѲ+35_х, 1 )) 

апсі С_СТРІ__ВІТ ) ог (33_сі) ), 

ЗРг_сІе1( 6Р, 35_у*ЗѲ+35_х, 1), 
35_у*ЗѲ+55_х 

); 


{ выводим спрайт на экран /бывшая зргіРе_оиР/ } 

35_Руре : = Азсіі( Сору( 6Р, 55_у*ЗѲ+35_х, 1 ) ); 

ІР ( 53_Руре = 5_РРЕЕ_РІ_АСЕ ) РРіеп 

55_сРіаг := ь ь; 

еізе іР ( 35_Руре = 5В_РРЕЕ_РІ_АСЕ ) РРіеп 
33_сРіаг : = ь. ь; 

еізе ІР (( 35_Руре = 3_МАМ ) ог (53_Руре = 5В_МАМ )) РРіеп 
35_сРіаг := ь><ь; 

еізе ІР (( 55_Руре = 3_ЫАЕ Ь ) ог (33_Руре = 5В_МАи_ )) РРіеп 
55_сРіаг : = СРіаг ( 178 ) + СРіаг( 178 ); 

еізе ІР ( 53_Руре = 5_В0Х ) РРіеп 
53_сРіаг := ь<>ь; 

еізе ІР ( 53_Руре = 5В_В0Х ) РРіеп 

35_сРіаг : = СРіаг( 17 ) + СРіаг( 16 ); 

епсі; епб; епсі; епб; епсі; епб; 

МгіРе( 35_сРіаг, 5 +(55_х*2), 5+55_у, РЕО, ЫНІТЕ ); 

геР; 


{ 


************************ ми і_ ТІ _ Е[)ІТ масро зивроинмЕ************** 5 
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ЗиЬгоиііпе Мате: 
ЗиЬгоиііпе Оезсгорііоп : 




Моѵіпд: { процедура верификации перемещения двигателя 
/МѴ_х смещение координаты по горизонтали 
/МѴ_у смещение координаты по вертикали 

} 

{ свободно ли следующее поле } 

іі ( Азсіі ( Сору( 6Р, (Мап_У+М\/_у)*30+(Мап_Х+М\/_х), 1)) 
апсі С_ВІТ_МА5К = 3_РРЕЕ_Р1_АСЕ ) іНеп 

Мап_Х := Мап_Х + МѴ_х ; 

Мап_У := Мап_У + МѴ_у ; 
еізе { проверим, может это ящик } 

іі ( Азсіі ( Сору( 6Р, (Мап_У+МѴ_у)*ЗѲ+(тап_х+МѴ_х) , 1)) 
апсі С_ВІТ_МА5К = 5_В0Х ) ібеп 

іі ( Азсіі( Сору( 6Р, (Мап_У+(МѴ_у*2))*ЗѲ+(Мап_Х+(МѴ_х’ 
апсі С_ВІТ_МА5К = 5_РРЕЕ_РІ.АСЕ ) Ібеп 

{ переместить двигатель и ящик в данном направлении 
55_х := Мап_Х + МѴ_х; 

35_у := Мап_У + МѴ_у ; 

33_б := 3_РРЕЕ_РІ_АСЕ; 
саіі 5ргііе_ЗІіо\л/; 

53_х := Мап_Х + (М Ѵ_х * 2); 

53_у := Мап_У + (МѴ_у*2) ; 

35_сІ := 5_В0Х; 
саіі Зргііе_ЗІіом; 

Мап_Х := Мап_Х + МѴ_х ; 

Мап_У := Мап_У + тѵ_у ; 
епб; 
епсі ; 
епб; 
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геТ; 

{- 

Епс^О-МЧасго: 
ЕМО_МАСКО; 
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ргосесіиге гр 
зеТ Таік оТТ 


*================================================= Ѳ8/18/91 Ѳ5 :19рг 

* 

* реализация игрушки 8око-Ьап преследует учебные 

* цели и акцентирует внимание на критичных 

* к процессу программирования местах 

* 

* 

* - версия "Знание - сила" - 

* 

■'■■========================================== (с) ІпзідНТ согр., 199: 

■==============:===========-■ ==================== определение констан - 

* - коды управляющих клавиі 

Р_езс = 27 

Р_гезТагТ = 32 && фактически - код пробела, но для нас он игра- 

*ет роль клавиши, сбрасывающей лабиринт в е 
* ное состояние 

Р_І_еТТ = 19 
Р_РідбТ = 4 

Р_11р = 5 

Р_0омп = 24 

* -константы, задающие кодировку спрайтоЕ 

* обратим внимание на тот факт, что спрайты с индексом Ь *' 

* представляют собой код, смещенный на С_сТг1_ЫТ, что *’ 

* позволяет легко определять поле, в котором находится ьточкаь*^ 

* - место, предназначенное для заталкивания туда ящиков 

* свободное для движения простраство 

* кстати, места под точками с точки зрения данного выражения 
*являются свободными для движения) 

зТоге 2 То С_Тгее_р1асе, 5_бгее_р1асе 

зТоге - 3_бгее_р1асе То СЬ_Тгее_р1асе, ЗЬ_Тгее_р1асе 

* фигурка двигателя (объекта, который двигает ящики) 
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зТоге 1 То С_тап, 5_тап 
зТоге - 5_тап То СЬ_тап, 5Ь_тап 

* стена лабиринта 
зТоге 9 То С_ма11, 3_ма11 

зТоге - 5_ма11 То СЬ_ма11, ЗЬ_ма11 

* код объекта передвижения - ящика 
зТоге 4 То С_Ьох, 5_Ьох 

зТоге - 3_Ьох То СЬ_Ьох, 5Ь_Ьох 


* 


сіітепзіоп дате_Тіе1сІ ( 2Ѳ, ЗѲ ) 

* массив пред- *) 

* ставляет собой эквивалент изображения на 

* экране, но в кодах, что позволяет функции 

* тоѵіпд осуществлять проверку корректности 

* перемещения по лабиринту 


тап_Х=Ѳ && пара целых представляет собой текущие коор- *) 

шап_У=Ѳ && динаты двигателя *) 

зсоге_а11=Ѳ && общее количество мест для ящиков *) 

5соге_пем=Ѳ && текущее количество ящиков, уложенных на место *) 

кЬгб_кеу=Ѳ && переменная - код следующего введенного *) 

&& с клавиатуры символа *) 


Ьеіі = [? сИг( 7 )] && супер-пупер-подпрограмма для выдачи сигна; 


сіеаг 

&Ье11 

*@ 5, 10 боиЫе 
сіо таге_іпіТ 

&Ье11 

&Ье11 

сіо дате_гоипсІ 
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*- раздача слоников 

&Ье11 

&Ье11 

&Ье11 



зсоге. 

_пем 

і — 

зсоге_ 

_а11 ) 


@ 16, 

2Ѳ 

зау 

|- * * * 

маладец! ***] 

еізе 






@ 16, 

2Ѳ 

зау 

|- * * * 

слаб-ба-к! ***] 


епсІі-Г 


зет сопзоіе о'Г'Г 
маіт 

зет сопзоіе оп 

сіеаг 

гебіігп && -- епсі оі" ргосесіиге гр -- 


функция выводит на экран изображение спрайта 


-бипсігіоп зргТоиТ 
рагашебегз зргі1:е_сосІе 


* благодаря тому, что вся программа пользуется для вывода 

* спрайта на экран этой функцией, здесь 

* локализуется информация о внешнем виде спрайта, 

* его цвете, что соответственно, облегчает задачу 

* проведения изменений в игрушке 


сіо сазе 

сазе (зргі1;е_сосІе = С_-ргее_р1асе) 
зргі1е_ріс1 = [ ] 

сазе зргі1;е_сосІе = СЬ_бгее_р1асе 
зргі1;е_ріс1; = [. ] 

сазе (зргі1;е_сосІе = С_шап) .ог. (зргі1;е_сосІе = СЬ_тап) 
зргі1;е_ріс1; = [><] 

сазе (зргі1;е_сосІе = С_ма11) .ог. (зргі1;е_сосІе = СЬ_ма11) 
зргі1;е_ріс1; = сбг (178)+сбг (178) 
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* __ 

*| интерес представляет тот факт, что по кодам 5_тап и 5Ь_таг 
*| выводится один и тот же рисунок спрайта, а по кодам 5_Ьох і 
*| 5Ь_Ьох - разные, что дает возможность автоматически выводи - 
*| на экран правильную картинку для ящика (незакрашенный, еслі 
*| на пустом поле и закрашенный, если на поле, предназначенное 
*| ящика) и двигателя ( одну и ту же картинку и на пустом пол* 
*| и на поле для ящика 

* __ 

сазе (зргіТе_сосІе = С_Ьох) 
зргі1:е_ріс1: = [о] 
сазе (зргіТе_сосІе = СЬ_Ьох) 

зргі1;е_ріс1; = сбг (17)+сІіг (16) 
оТІпегмізе 

зргі1;е_ріс1; = [ ] 

епсісазе 

геТигп( зргі1:е_ріс1: ) 


* 


ргосесіиге зргі1;е_5Ііом 

рагашеТегз зргі1:е_х, зргі1:е_у, зргі1:е_1:уре 

* _ 

* процедура обеспечивает логический вывод графического обрг 

* за спрайта в пределах всех программы, здесь же происходи - 

* коррекция содержимого массива дате_"Гіе1сІ []; 

* 

* в данной процедуре поддерживается ведение счетчика игры 

* 


* проверка необходимости корректировать счетчик очков *) 
іб( дате_біе1сІ( зргі1;е_х, зргі1;е_у ) = СЬ_Ьох ) 
іб( зргі1;е_1;уре <> С_Ьох ) 

* если по координате, на которой только что стоял ящик, 
*пишется не-ящик, уменьшить счетчик количества поставл* 
*на место ящиков 

5соге_пем = зсоге_пем - 1 

епбі-р 

епбіб 


йВазе II 


44 








Приключения Понерки Ксении или 25 лет Спустя 


і-Г( дате_-ріе1сІ( зргі1:е_х, зргі1:е_у ) < Ѳ ) 
і-Г( зргі1;е_1;уре = С_Ьох ) 

* если по координате, на которой должен стоять ящик, 
*пишется код ящика, увеличить счетчик количества постаЕ 
*ленных на место ящиков 

5соге_пем = зсоге_пем + 1 

епсіі-р 

епсІі-Г 

дате_1"іе1с1( зргіТе_х, зргі1;е_у ) = ; 

зідп( дате_1"іе1сІ( зргі1;е_х, зргі1;е_у )) * ; 
аЬз( зргі1;е_1;уре ) 
і-р( зргі1;е_1;уре < Ѳ ) 

дате_1"іе1сІ( зргіТе_х, зргіТе_у ) = ; 

- дате_-ріе1сІ( зргі1;е_х, зргі1;е_у ) 

епсІі-Г 

@ зргіТе_х, зргіТе_у*2 ; 

зау зргііоиі;( дате_-ріе1сІ ( зргі1;е_х, зргі1;е_у ) ) 

геТигп 


ргосесіиге таге_іпі1; 

* _ 

* процедура инициализирует массив дате_'Ріе1сІ [ ], содержащий 

* поле лабиринта, ящики, места для них 

* а также устанавливает счетчики игрушки: общее количество 

* мест для установки ящиков зсоге_а11, количество уже 

* установленных на место ящиков зсоге_пем 

* 


сіітепзіоп таге( 2Ѳ ) 

* Ѳ 1 2 3 

* 123456789Ѳ123456789Ѳ123456789Ѳ1 

таге( Ѳ1 ) = ьѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь 

таге( 02 ) = ьѲѲѲѲѲѲѲ99999ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь 

таге( ѲЗ ) = ьѲѲѲѲѲѲѲ9ѲѲѲ9ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь 
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таге( 04 ) = 
таге( Ѳ5 ) 
таге( Ѳ6 ) = 
таге( 07 ) = 
таге( 08 ) = 
таге( 09 ) = 
таге( 10 ) = 
таге( 11 ) = 
таге( 12 ) = 
таге( 13 ) = 


ьѲѲѲѲѲѲѲ94ѲѲ9ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь 

= Ь000009990049990000000000000000Ь 

Ь000009004004090000000000000000Ь 

ьѲѲѲ999Ѳ9Ѳ999Ѳ9ѲѲѲѲѲ999999ѲѲѲѲѲь 

Ь000900090999099999990033900000ь 

Ь000904004000000000000033900000Ь 

Ь000999990999909199990033900000Ь 

Ь000000090000009990099999900000Ь 

ьѲѲѲѲѲѲѲ99999999ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲь 

Ь000000000000000000000000000000Ь 


начальная инициализация массива & очистка экрана 


сіо \л/И±1е ( і <= 20 ) 

3 = 1 

сіо \л/И±1е ( 2 <= 30 ) 

дате_1"іе1сІ( і, 2 ) = С_-ргее_р1асе 
3=3+1 
епсісіо 
і = і + 1 
епсісіо 


считывание лабиринта 


зсоге_а11 = 0 
зсоге_пем = 0 


і — 1 

сіо \л/Иі1е( і <= 13 ) 

3 = 1 


сіо іл/Иі1е( 2 <= 30 ) 
сіо сазе 

сазе зиЬз1;г( та ге( і ), 2г 1 ) 
сіо зргі1;е_5Ііом міТІп і, 2 / 
сазе зиЬз1;г( таге( і ), 2, 1 ) 
сіо зргі1;е_5Ііом міііі і, 2 / 
сазе зиЬз1;г( таге( і ), 2/ 1 ) 
сіо зргі1;е_5Ііом міТІі і, 2 / 
сазе зиЬз1;г( таге( і ), 2> 1 ) 


= ьѲь 

5_-ргее_р1асе 
— ь9ь 
3_ма11 
= ь4ь 
3_Ьох 
= ьЗь 
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сіо зргі1;е_5Ііо\л/ міТІі і, і, 
зсоге_а11 = зсоге_а11 + 1 
сазе зиЬз1;г( таге( і ), і, 1 ) 
сіо зргі1;е_5Ііом іл/іТІі і, і, 
зсоге_а11 = зсоге_а11 + 1 
зсоге_пем = зсоге_пем + 1 
сазе зиЬз1:г( таге( і ), і, 1 ) 
сіо зргі1;е_5Ііо\л/ міТИ і, і, 
тап_Х = і 
тап_Ѵ = і 

сазе зиЬз1;г( таге( і ), і, 1 ) 
сіо зргі1;е_5Ііом іл/іТІі і, і, 
тап_Х = і 
тап_Ѵ = і 

зсоге_а11 = зсоге_а11 + 1 
оТИегмізе 

сіо зргі1;е_5Ііо\л/ міТІі і, і , 
епсісазе 


5Ь_-Ггее_р1асе 

= ь7ь 
5Ь_Ьох 


= ьіь 
5_тап 


= ь2ь 
5Ь_тап 


5_-Ггее_р1асе 


3=3+1 
епсісіо 
і = і + 1 
епсісіо 


геТигп 


ргосесіиге тоѵіпд 
рагатеТегз сІ11:_х, сІ11:_Ѵ 


* процедура осуществляет отработку движения в заданном нащ 

* лении 

* 

* направление задается парой смещений сШ:_х, сііі; _у 

* 

* так, например, если сІ11:_х = Ѳ, а сІ11:_у = + 1, то это ознг 

* ет, что отрабатывается движение л 

* в направлении вниз, то есть, | ( Ѳ, - 1 ) 

* согласно следующей системе | 

* координат: <-- -- + -- --> 
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* ( - 1, ѳ ) I ( + 1, ѳ 

* I 

* V ( Ѳ, + 1 ) 

* 


* свободно ли следующее поле? 

іб( аЬз(дате_біе1сІ(тап_Х+сШ:_Х,тап_У+сІ11:_У) ) = 5_бгее_р1асе) 

* перемещение двигателя на следующее поле 
тап_Х = тап_Х + сІ11:_Х 
тап_У = тап_У + сШ:_У 
еізе && проверим, может это ящик 

і-р( аЬз(дате_-ріе1сІ(тап_Х+сШ:_Х, тап_У+сІ11:_У) ) = 5_Ьох ) 

* а свободно ли поле за ящиком? 

іб( аЬз(дате_біе1с1(тап_Х+с111:_Х*2, тап_У+сШ:_У*2)) ; 

= 5_-Ггее_р1асе ) 

* переместим ящик и двигателя на поле в данном направо 
сіо зргі1;е_5Ііом міТб тап_Х+сШ:_Х, тап_У+с111:_У, 5_бгее_|: 
сіо зргі1;е_5Ііо\л/ мібіі тап_Х+сШ:_Х*2, тап_У+сІ11;_У*2, 5_Ь( 
тап_Х = тап_Х + сШ:_Х 
тап_У = тап_У + сІ11;_У 
епсІі-Г 

епсііб 

епсііб 

гебіігп 


ргосесіиге дате_гоипсІ 


* основной цикл игрушки 

* 


дате_уез = .Т . 

сіо \л/И±1е ( дате_уез ) 
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* выводим двигателя по текущей координате 
сіо зргііе_зІіоѵ\/ мііИ тап_Х, тап_Ѵ, 5_тап 

* вводим команду с клавиатуры 

* сразу же заметим, что пользоваться командой іпкеу() в данном 

* случае (то есть в данном языке) надо осторожно: здесь эта коі\ 

* не вводит символ с клавиатуры, а производит опрос клавиатуры 

* последующим вводом символа 
кЬ г сІ_кеу = Ѳ 

РО ЫНИЕ . І\ІОТ . ( (кЬгс!_кеу = Р_езс). ог . ( кЬгсІ_кеу = Р_гезіаг1:) .оі 

( кЬгсІ_кеу = Р_І_еіі) .ог . (кЬ г сІ_кеу = Р_Рг±дкі 1;) . ог 
(кЬгсІ_кеу = Р_іір) . ог . ( кЬгсІ_кеу = Р_Ромп) ) 

кЬгсІ_кеу = Ѳ 
РО МНП.Е кЬгсІ_кеу = Ѳ 
кЬ г сІ_кеу = ІІ\ІКЕУ() 

ЕІМРРО 

ЕІМРРО 


* стираем двигателя по текущей координате 
сіо зргііе_зІіоѵ\/ мііИ шап_Х, тап_У, 5_ігее_р1асе 

* отрабатываем управляющую клавишу 
сіо сазе 

сазе (кЬгсІ_кеу = Р_1_е-Н: ) 
сіо тоѵіпд мііііі Ѳ, -1 

сазе (кЬгс!_кеу = Р_Р±дИ1; ) 
сіо тоѵіпд міііі Ѳ, +1 

сазе (кЬгс!_кеу = Р_1ір ) 
сіо тоѵіпд мііб -1, Ѳ 

сазе (кЬгс!_кеу = Р_Ромп ) 
сіо тоѵіпд мііИ +1, Ѳ 

епсісазе 

* и так до тех пор, пока либо не установим все ящики на месте. 
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*не введем код Р_езс, либо код Р_гезТаг1: 

і-р( (зсоге_пем = зсоге_а11) ; 

.ог. (кЬг сІ_кеу = Р_езс) .ог. (кЬгб_кеу = Р_гез1;аг1;) ) 
дате_уез = .Т. 
епсіі 1" 
епсісіо 

геТигп 
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///////////////////////// гр. зіб - гиззіап ризбег ///////////////, 


// 

// - Мгіббеп .: Ьу Іпзідііі: согр. 

// - Рабе.: Ѳ9/Ѳ4/91 Ѳ2:24ат 

// - ЗиЬдесб.: программа продолжает славную серию реализаций 


// Зоко-Вап на различных языках программирования, 

// представляя язык 5АІ_Т телекоммуникационного пакета Теііх. 

// - Сотрііе Ііпе: сз гр 

// - 

//////////////////////////////////////////////////////////////////, 

іпб 6_езс = ѲхѲѲіЬ, 

1"_ге5І;аг1; = ѲхѲѲ2Ѳ; 

іпТ -Г_1е-П; = 0х4Ь00, 

1"_гідІі1; = 0х4сІ00, 

■Г_ир = 0x4800, 

"Г 1 _ сі о\л/п = 0x5000; 

// 15 + (16 * 04) -- белым по красному 

іпі дате_со1ог = 0x46; 

іпі с_сп1;г1_Ы1; = 0x80, 
с_Ы1;_та5к = 0x76; 

іпб з_6гее_р1асе, з_тап, з_ма11, з_Ьох, 
зЬ_6гее_р1асе, зЬ_тап, зЬ_іл/а11, зЬ_Ьох; 

// 30 * 13 = 390 

збг таге[ 390 ]; // фактически - локальная переменная, но ограні 

// длины локальных переменных до 255 символов 
// вынуждает вынести ее на глобальное место 

збг дате_6іе1сІ [ 390 ]; // массив содержит рабочий массив игрушки 
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іпі; тап_х, тап_у, // координаты двигателя 

зсоге_а11, зсоге_пем, // переменные содержат счетчики очков 

кЬг сі кеу; // введенный символ 

/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А 

таіп( ) 

{ 

іпТ могк_Иате; 

// фактически - инициализация констант, но невозможность 
// использовать при инициализации выражения вынуждает 
// инициировать эти константы здесь 

з_-Ггее_р1асе = Ѳ; зЬ_Иее_р1асе = с_сп1;г1_Ь±1; + з_Иее_р1< 

з_шап = 1; зЬ_тап = с_сп1:г1_Ы1: + з_тап; 

з_ма11 = 9; зЬ_ма11 = с_сп1:г1_Ы1: + з_ма11; 

з_Ьох = 4; зЬ_Ьох = с_сп1;г1_Ьі1; + з_Ьох; 

сиг50Г_опо-Г-Г ( Ѳ ); 

могк_-Ггате = ѵзаѵеагеа ( 5, 4, 7Ѳ, 2Ѳ ); 

Ьох ( 5, 4, 7Ѳ, 20, 2, 0, дате_со1ог ); 

аіагт ( 1 ); 

рзТгаху ( "(с) ІпзідИІ; согр., 1991", 25, 16, дате_со1ог ); 
рзігаху ( "Іпіі ±N11; ±п11: іпіТ....", 25, 18, дате_со1ог ); 
та 2 е_іпі 1 ; (); 

рзігаху ( "Моѵіпд Іір/Оомп/Іе-Пі/РідРІ; : РіпізИ Езс/Зрасе", 

18, 18, дате_со1ог ); 
аіагт ( 1 ); 
дате_гоипсІ (); 

рзігаху ( " ", 

18, 18, дате_со1ог ); 
доіоху ( 28, 18 ); 
іі ( зсоге_пе\л/ == зсоге_а11 ) 
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рзНа ( "*** маладец! ***", дате_со1ог ); 
еізе 

рзТга ( "*** слаб-ба-к ***", дате_со1ог ); 
аіагт ( 1 ); 

кЬгб_кеу = іпкеум (); 
ѵгзігагеа ( могкПгате ); 
сигзогппоН ( 1 ); 

} 

/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А/А 


// - // - // - /, 

// - функции сконструированные для работы с массивами - 

// выбрать элемент из массива аггау по координате [соіипш, гом] 
ПетИгот_аггау ( зП аггау, іпТ соіитп, іпТ гом ) 

{ 

геТигп ( зиЬсІіг ( аггау, гом*ЗѲ+со1итп ) ); 

} 

// поместить данное Пет в массив аггау по координате [соіитп, гоѵ\1 
ПетПо_аггау ( зП аггау, іпі соіитп, іпТ гом, іпТ Нет ) 

{ 

зеісііг ( аггау, гом*ЗѲ+со1итп, Нет ); 

} 

// - // - // - /, 

// функция выводит на экран изображение спрайта 
зргПе_оиТ ( іпТ зргПеПуре ) 

{ 

И ( зргПеПуре == зПгее_р1асе ) 
рзПа ( " ", дате_со1ог ); 

еізе И ( зргПеПуре == зЬИгее_р1асе ) 
рзіга ( ". ", дате_со1ог ); 

еізе И ( (зргПеПуре == з_тап) ог (зргПеПуре == зЬ_тап) ) 
рзіга ( "><", датепоіог ); 

еізе И ( (зргПеПуре == з_ма11) ог (зргПеПуре == зЬ_ма11) ) 
рзНа ( " л 178 л 178", датепоіог ); 
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еізе ІР ( зргі1:е_1:уре == з_Ьох ) 
рзРга ( "о", дате_со1ог ); 
еізе ІР ( зргіРе_1:уре == зЬ_Ьох ) 
рзіга ( " Л Ѳ17 Л Ѳ16" , дате_со1ог ); 

} 

// - // - // - /, 

// 

5ргі1е_5Ііо\л/ ( іпР зргі1:е_х, іпР зргі1:е_у, іпР зргі1;е_1;уре ) 

{ 

і-р ( іРет_-ргот_аггау ( дате_-ріе1с1, зргі1:е_х, зргі1;е_у ) == зЬ_Ьох 
і-р ( зргіРе_1уре ! = з_Ьох ) 

- -зсоге_пем; 

і-р ( (і1ет_-ргот_аггау ( дате_-ріе1с1, зргіРе_х, зргіРе_у ) 

& с_спРг1_ЫР ) != Ѳ ) 
і-р (зргііе_Руре == з_Ьох ) 

++зсоге_пем; 


іРет_Ро_аггау ( дате_-ріе1сі, зргіРе_х, зргіРе_у , 

(ііет_-ргот_аггау( дате_-ріе1сІ, зргііе_х, зргііе_у) & с_спРг1_Ы11 
| (зргіРе_Руре) ); 

// 5+3, 4+1 - смещения в Ноте при выводе в окнышко 
доіоху ( 5+3 + зргіРе_х*2, 4+1 + зргіРе_у ); 

зргіРе_оиР ( іРет_-ргот_аггау (дате_-ріе1сІ, зргіРе_х, зргіРе_у )); 

} 


// - // - // 

// 

таге_іпіР () 


{ 

іпР і, і , сгпР_сРіаг; 


// 

// 


таге = 
зРгсаР ( таге, 
зРгсаР ( таге. 


Ѳ12 3 

12345678 9Ѳ123456 78 9Ѳ123456789Ѳ1 
"ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 
"ѲѲѲѲѲѲѲ99999ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 
"ѲѲѲѲѲѲѲ9ѲѲѲ9ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 


); 

); 


// 
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зГгсаі 

( 

таге. 

"ѲѲѲѲѲѲѲ94ѲѲ9ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 

); 

зігсаГ 

( 

таге. 

"ѲѲѲѲѲ999ѲѲ4999ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 

); 

зГгсаГ 

( 

таге. 

"ѲѲѲѲѲ9ѲѲ4ѲѲ4Ѳ9ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 

); 

зігсаі 

( 

таге. 

"ѲѲѲ999Ѳ9Ѳ999Ѳ9ѲѲѲѲѲ999999ѲѲѲѲѲ" 

); 

зігсаГ 

( 

таге. 

"ѲѲѲ9ѲѲѲ9Ѳ999Ѳ9999999ѲѲ339ѲѲѲѲѲ" 

); 

зГгсаГ 

( 

таге. 

"ѲѲѲ9Ѳ4ѲѲ4ѲѲѲѲѲѲѲѲѲѲѲѲѲ339ѲѲѲѲѲ" 

); 

зГгсаі 

( 

таге. 

"ѲѲѲ99999Ѳ9999Ѳ919999ѲѲ339ѲѲѲѲѲ" 

); 

зігсаГ 

( 

таге. 

"ѲѲѲѲѲѲѲ9ѲѲѲѲѲѲ999ѲѲ999999ѲѲѲѲѲ" 

); 

зГгсаГ 

( 

таге. 

"ѲѲѲѲѲѲѲ99999999ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 

); 

зігсаГ 

( 

таге. 

"ѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲѲ" 

); 


// - считывание лабиринта- 

зсоге_а11 = Ѳ; 
зсоге_пем = Ѳ; 

■Гог ( і = Ѳ; і < 13; ++і ) 

Гог ( 3 = Ѳ; 3 < ЗѲ; ++] ) 

{ 

іГеш_1;о_аггау ( дате_Гіе1сІ, і , і, Ѳ ); 

// сначала избавимся от мусора... 
сгпГ_сбаг = ііет_Ггот_аггау ( таге, і , і ); 

// а теперь - от необходимости повторять правое выражение 
// в каждом іГ-е 
ІГ ( сгпГ_сІіаг == ьѲь ) 

зргіГе_5Ііом ( і, і, з_Ггее_р1асе ); 
еізе ІГ (сгпі_сІіаг == ь9ь) 
зргіГе_зІіом ( і, і, з_ма11 ); 
еізе ІГ (сгпі_сбаг == ь4ь) 
зргіГе_5Ііом ( , і, з_Ьох ); 

еізе ІГ (сгпі_сІіаг == ьЗь) 

{ 

5ргіГе_зІіом ( 2 , і, зЬ_Ггее_р1асе ); 

++зсоге_а11; 

} 

еізе ІГ (сгпі_сІіаг == ь7ь) 

{ 

зргііе_5Ііо\л/ ( 2 , і, зЬ_Ьох ); 

++зсоге_а11; 

++зсоге_пем; 

} 
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еізе іі (сгп1;_сІіаг == ьіь) 

{ 

зргі1;е_5Ііо\л/ ( і, і, з_тап ); 
тап_х = і ; 
тап_у = і; 

} 

еізе іі (сгп1;_с1іаг == ь2ь) 

{ 

зргі1;е_5Ііо\л/ ( і, і, зЬ_тап ); 
тап_х = і ; 
тап_у = і; 

++зсоге_а11; 

} 

еізе 

зргі1;е_5Ііом ( і, і, з_-ргее_р1асе ); 

} 


// - // - // - /, 

// 

тоѵіпд ( іпТ сІ11;_х, ігіі сІ11;_у ) 

{ 

// а вот здесь обратим внимание на наличие скобок в выражені 
// (5АІ.Т - это тот самый язык, где лишняя пара скобок не 
// повредит (зіс! гиіез о"Г ргесебепсе (то бишь, правила 
// предшествования))) 

// свободно ли следующее поле? 

іб ( (іТет_-ргот_аггау( дате_-Гіе1сІ, тап_х+сШ:_х, тап_у+сІ11;_у) 

& с_Ы1;_та5к) == з_-ргее_р1асе ) 

// перемещение двигателя на следующее поле 

{ 

шап_х = тап_х + сІ11;_х; 
тап_у = тап_у + сІ11;_у; 

} 

еізе 

// проверим, может это - ящик? 

іі ( (і1;ет_-Ггот_аггау ( дате_-біе1сІ, тап_х+сІ11;_х, тап_у+сШ;_у) 

& с_ЫТ_та5к) == з_Ьох ) 

// свободно ли поле за ящиком? 
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іі ( (ііет_ігот_аггау( дате_ііе1сІ, тап_х+(сШ:_х*2), 
тап_у+(сШ;_у*2)) & с_Ы1:_та5к) == з_ігее_р1асе ) 

// переместим ящик и двигателя на поле в данном направлении 

{ 

5ргіТе_5Ром ( тап_х+сІ11:_х, тап_у+с111:_у, з_ігее_р1асе ); 
зргііе_5Роѵ\/ ( тап_х+(сШ:_х*2), тап_у+(сШ:_у*2), з_Ьох ); 
тап_х = тап_х + сИі_х; 
тап_у = тап_у + сІ11;_у ; 

} 


} 


// - // - 

// 

дате_гоипсІ () 

{ 

сіо { 

зргі1;е_5Ром ( тап_х, тап_у, з_тап ); 
кЬг сІ_кеу = іпкеум (); 


-//■ 


■// 


зргііе_5Роѵ\/ ( тап_х, тап_у, з_ігее_р1асе ); 

іі ( кЬ г сІ_кеу == і_1еіі ) 
тоѵіпд ( -1, Ѳ ); 
еізе іі (кЬгсІ_кеу == і_гідНі) 
тоѵіпд (1, Ѳ ); 
еізе іі (кЬгс]_кеу == і_ир) 
тоѵіпд ( Ѳ, -1 ); 
еізе іі (кЬгсІ_кеу == і_с!омп) 
тоѵіпд ( Ѳ, 1 ); 

} мНіІе ( ! ( (зсоге_пеіл/ == зсоге_а11) ог 
(кЬгсІ_кеу == і_езс) ог 
(кЬгсІ_кеу == і_гезіаг1:) ) ); 

} 

//////////////////////////// ИНе епсі /////////////////////////////, 
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Редактор панорам 

для игрушки "Капитан Комик" 

версия 2. Ѳ/ 
(с) ІпзідИІ; согр., 199: 

11/12/91 ѲѲ:31аг 

Редактор панорам обеспечивает полноэкранное редактирование 

_ Ііі .И 


панорам вышеупомянутой игрушки при помощи нижеуказанных команд. 

Содержание руководства 

Порядок работы. Вход в редактор 

Принцип реализации панорамного движения в игре 

Режим работы с кубиками изображения 
Хождение по кубикам 
Как сделать кубик активным 
Вписывание (извините за выражение) кубика в 
нужное место 

Разметка прозрачности кубиков 

Режим редактирование кубика 

Работа с палитрой цветов 
Завершение работы в режиме 

Порядок выхода из редактора 


Краткая сводка команд редактора панорам 

Вход в редактор: 

> рапеб <ЕпТег> 
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После загрузки редактор просит вас назвать имя панорамы, и загружает 
файл со словарем панорамы, а также все три карты панорам. 

После чего система переходит в режим редактирования панорамы. 

Езс выход из режима (завершение работы редактора по 

данной панораме! !! Китайское предупреждение 
!!! Пока система запоминает файл словаря и фай; 
карт панорам, возможен сбой машины. В таком 
случае пользоваться результатами редактировали} 
возможно окажется невозможным. Вот для таких 
случаев и необходимо создавать страховые 
копии! ! ! 


В данном режиме команды движения: 


Ноте 

панораму 

к левому краю 

Епб 

панораму 

к правому краю 

СТгІРдОп 

панораму 

вправо на кубик 

РдОп 

панораму 

вправо на экран 

СТгІРдІІр 

панораму 

влево на кубик 

РдЦр 

панораму 

влево на экран 

Цр 

рамочку 

вверх на кубик 

Оомп 

рамочку 

вниз на кубик 

І_еб1: 

рамочку 

влево на кубик 

ПідНТ 

рамочку 

вправо на кубик 


Функциональные ключи: 
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Р2 сделать текущей карту Ѳ 

РЗ сделать текущей карту 1 

Р4 сделать текущей карту 2 

Р5 фиксирование кубика как текущего по данной координат* 

Р6 занесение текущего кубика в данную координату 

Р8 редактирование кубика под курсором 

(см. список команд данного режима ниже) 

Р7 переключить признак кубика 

прозрачный.непрозрачный 
Р9 переключатель режима прозрачности 

СІГІР5 вызов словаря кубиков (см. список команд данного 

режима ниже) 


В режиме индикации прозрачности (ключ Р9) редактор отображает 
непрозрачные кубики при помощи квадратика размером ширина кубика-2 на 
высота кубика-2, что позволяет ориентироваться в общем плане построения 
препятствий. Работа системы несколько (очень незаметно, но) замедляется, 
а в остальном все - то же самое. 

Режим редактирования изображения кубика (ключ Р8): 

Команды данного режима составляют три категории: 

Команда выхода из режима: 

Езс выход из режима с фиксацией изменений в словаре 

кубиков; кроме того, измененный кубик становитс 
активным, то есть его можно сразу же, извините 
за выражение, куда-то вставить 

А ___ 2ІШША 


Команды движения в режиме: 


І_е-Н: 

движение 

Кідііі: 

движение 

Цр 

движение 

Цомп 

движение 


влево на пиксел 
вправо на пиксел 
вверх на пиксел 
вниз на пиксел 
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Команды движения в данном режиме отрабатывают движение по-разному в 
зовисимости от статуса слежения. Статус слежения представляет собой 
полоску желтого цвета, расположенную внизу экрана редактирования кубика 
(статус переключается при помощи ключа Р4). Если статус слежения 
выключен, курсор пискеля просто двигается, если статус слежения включен, 
то при движении закрашивается пиксел, из которого мы только что двинулись 
дальше. 

Р4 статус слежения курсора включить/выключить (при 

включенном статусе слежения курсора, за курсором тянете 
след из текущего цвета 

Р5 закраска всего кубика текущим цветом 

А - - ™ і уууѵѵуѵуѵу> А 

* 8888888888 > 

ѵ.ѵ.ѵ.ѵ.ѵ.ч 


Команды выбора цвета палитры: 

Представляют собой характерные буквы английских названий цвѳтое 

А _“_ ПД > 1 


(иногда - зашифтенные (то есть, требующие нажатия шифта (то есть, 
клавиши, изменяющией регистр на клавиатуре))) 
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Ыаск 

черный 

а 

Ыие 

синий 

Ь 

дгееп 

зеленый 

д 

суап 

бирюзовый 

с 

гесі 

красный 

г 

шадепТа 

фиолетовый 

ш 

Ьгомп 

коричневый 

п 

мбіТе 

белый 

ы 

дгау 

серый 

А 

ІідИТЬІие 

голубой 

В 

ІідбТдгееп 

светло-зеленый 

6 

ІідИТсуап 

светло-бирюзовый 

С 

ІідбТгеб 

светло-красный 

В 

ИдбТтадепТа 

светло-фиолетовый 

м 

ІідбТуеІІом 

желтый 

У 

ЬгідИТмбіІіе 

ярко-белый 

VI 


Примечание: маленькие латинские буквы соответствуют нажатию 
без шифта, большие - соотвтественно - с шифтом 


Режим просмотра словаря кубиков (ключ СІГІР5) 

Данный режим позволяет просматривать словарь кубиков (всего 12' 

штук), и выбирать, либо просто нужный кубик, либо отыскивать еще не 
занятый картинкой (то есть пустой кубик). 

После нажатия ключа, под основным экраном панорамы появляется строчка 
словаря кубиков (следующий ряд из 16 кубиков). При помощи команд 
движения мы вибираем нужный кубик и нажимаем либо клавишу Епіег (и 
тогда после выхода из режима данный кубик становится активным) либо 
клавишу Езс, и тогда ничего не меняется. 

Команды завершения режима: 
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Езс выйти из режима без ничего 

ЕпТег выйти из режима и слелать выбранный кубик активным 


Команды движения в режиме: 


Ноте к первому кубику 

Епб к последнему кубику 

!! Обратите Внимание !! Последним является не 128, а 
127 кубик, что и отображается при индикации последнеі 
кубика (предпоследний в данном ряду). Если вы выбере - 
самый последний кубик, то рискуете получить потом на 
картинке мусор. 

ІІр циклически на ряд вперед 

Оомп циклически на ряд назад 

І_е"Н: циклически влево на кубик 

ПідНі: циклически вправо на кубик 


ЗДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД© 


Ё Ё 
Ё Не надо забывать культурно работать со страховыми копиями Ё 
Ё панорам! Ё 
Ё Ё 
Ё Лучше лишний раз выйти, чем потерять несколько часов Ё 
Ё работы! Ё 
Ё Ё 


ЮДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЫ 
-- 


Редактор Панорам 


63 





Приключения Понерки Ксении или 25 лет Спустя 


(с) ІпзідИТ согр., 1991 

Файлы, что находятся в данном подкаталоге представляют собой пример 
реализации виодеоэффекта объемного движения из книги Технология 
Проектирования Компьютерных Игр 

Для запуска видеоэффекта, выполнить файл рп.ехе 

Файл рп.ехе использует как графические данные в процессе работы файлы 
рап.М2 и рапО.рі Чтобы поработать с этими файлами, запустите редактор 
рапесІІОО.ехе (не 100, а версия 1.00!) 

Обьяснение, облегчающее разбирательство с работой редактора и 
принципами функционирования видеоэффекта: 

В первой части панорамы (при просмотре ее редактором 
рапесІІѲѲ . ехе), вверху находятся полосы, движущиеся в 
определенном порядке с разными смещениями. Внизу панорамы 
находятся полосы, перекрывающие при движении фон. Справа от 
полос, перекрывающих фон находится маска для накладки на фон. 

Остальные детали работы очевидны и докладно описаны в виде 
программы на языке С в соответствующем файле. 

А ___ Ш>\ 


РагаІІах ЗсгоІІіпд 
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